home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DELPHI32 / AUDIO / SWEEPGEN / MMERRMSG.PAS < prev    next >
Pascal/Delphi Source File  |  1996-05-31  |  3KB  |  62 lines
  1. unit
  2.     mmErrMsg;
  3.  
  4. interface
  5.  
  6. function translate_mm_error (error_number: word): pChar;
  7.  
  8. implementation
  9.  
  10. uses
  11.     mmSystem;
  12.  
  13. function translate_mm_error (error_number: word): pChar;
  14. begin
  15.   case error_number of
  16.          mmsyserr_NoError: translate_mm_error := 'no error';
  17.            mmsyserr_Error: translate_mm_error := 'unspecified error';
  18.      mmsyserr_BadDeviceID: translate_mm_error := 'device ID out of range';
  19.       mmsyserr_NotEnabled: translate_mm_error := 'driver failed enable';
  20.        mmsyserr_Allocated: translate_mm_error := 'device already allocated';
  21.      mmsyserr_InvalHandle: translate_mm_error := 'device handle is invalid';
  22.         mmsyserr_NoDriver: translate_mm_error := 'no device driver present';
  23.            mmsyserr_NoMem: translate_mm_error := ' memory allocation error';
  24.     mmsyserr_NotSupported: translate_mm_error := 'function isn''t supported';
  25.        mmsyserr_BadErrNum: translate_mm_error := 'error value out of range';
  26.        mmsyserr_InvalFlag: translate_mm_error := 'invalid flag passed';
  27.       mmsyserr_InvalParam: translate_mm_error := 'invalid parameter passed';
  28.          waverr_BadFormat: translate_mm_error := 'unsupported wave format';
  29.       waverr_StillPlaying: translate_mm_error := 'still something playing';
  30.         waverr_Unprepared: translate_mm_error := 'header not prepared';
  31.               waverr_Sync: translate_mm_error := 'device is synchronous';
  32.        midierr_Unprepared: translate_mm_error := 'header not prepared';
  33.      midierr_StillPlaying: translate_mm_error := 'still something playing';
  34.             midierr_NoMap: translate_mm_error := 'no current map';
  35.          midierr_NotReady: translate_mm_error := 'hardware is still busy';
  36.          midierr_NoDevice: translate_mm_error := 'port no longer connected';
  37.      midierr_InvalidSetup: translate_mm_error := 'invalid setup';
  38. {        midierr_LastError: translate_mm_error := 'last error in range'; } 
  39. {           timerr_NoError: translate_mm_error := 'no error'; }
  40.            timerr_NoCanDo: translate_mm_error := 'request not completed';
  41.             timerr_Struct: translate_mm_error := 'time struct size';
  42. {           joyerr_NoError: translate_mm_error := 'no error'; }
  43.              joyerr_Parms: translate_mm_error := 'bad parameters';
  44.            joyerr_NoCanDo: translate_mm_error := 'request not completed';
  45.          joyerr_Unplugged: translate_mm_error := 'joystick is unplugged';
  46.      mmioerr_FileNotFound: translate_mm_error := 'file not found';
  47.       mmioerr_OutOfMemory: translate_mm_error := 'out of memory';
  48.        mmioerr_CannotOpen: translate_mm_error := 'cannot open';
  49.       mmioerr_CannotClose: translate_mm_error := 'cannot close';
  50.        mmioerr_CannotRead: translate_mm_error := 'cannot read';
  51.       mmioerr_CannotWrite: translate_mm_error := 'cannot write';
  52.        mmioerr_CannotSeek: translate_mm_error := 'cannot seek';
  53.      mmioerr_CannotExpand: translate_mm_error := 'cannot expand file';
  54.     mmioerr_ChunkNotFound: translate_mm_error := 'chunk not found';
  55.        mmioerr_Unbuffered: translate_mm_error := 'file is unbuffered';
  56.   else
  57.       translate_mm_error := 'invalid parameter passed to error translation routine!';
  58.   end;
  59. end;
  60.  
  61. begin
  62. end.